home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / aie8911.zip / V2.ARI < prev    next >
Text File  |  1989-08-27  |  1KB  |  42 lines
  1.  
  2.  
  3. /***************** the system  -  v. 2 ****************************/
  4.  
  5.  
  6. /***************** the test   *************************************/
  7.  
  8. test :-   process_housing_unit( 1 ).
  9.  
  10. /************* end the test   *************************************/
  11. %%%%%%%%%%%%%%%% process_housing_unit %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  12.  
  13. :- init_ops.
  14. /*
  15.  
  16.  data  ([ name: order_date,
  17.           def : $day salesman calls in order$,
  18.           representation : ( Year, Month, Day) ].
  19. */
  20. stub  [ call : process_housing_unit( X )         ,
  21.         purpose: $processes a housing unit$].
  22.  
  23. :- turn( process_housing_unit, on).
  24. :- show( process_housing_unit, on).
  25.  
  26. process_housing_unit( X ) :-
  27.        data_collected_q( X ),
  28.        put_in_sample( X ).
  29. process_housing_unit( X ) :-
  30.        write_error([ $No data for $, X]).
  31.  
  32. %%%%%%%%%%%% end process_housing_unit %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  33.  
  34. stub  [ call : data_collected_q(  Housing_unit  ),
  35.         purpose: $decides if data was collected for Housing_unit$].
  36.  
  37. stub  [ call : put_in_sample(  Housing_unit  ),
  38.         purpose: $puts data into sample for used for CPI$].
  39.  
  40.  
  41. /************* end the system  -  v. 2 ****************************/
  42.